[PATCH] <short summary of the patch>
authorCamm Maguire <camm@debian.org>
Sat, 14 Mar 2026 13:04:53 +0000 (13:04 +0000)
committerCamm Maguire <camm@debian.org>
Sat, 14 Mar 2026 13:00:11 +0000 (09:00 -0400)
TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

Gbp-Pq: Name Version_2_7_2pre13

cmpnew/gcl_cmplam.lsp
cmpnew/gcl_cmplet.lsp
cmpnew/gcl_cmpmulti.lsp
cmpnew/gcl_cmptop.lsp
cmpnew/gcl_cmpvar.lsp
git.tag
info/gcl-si.info
info/gcl-si.info-1
info/gcl-tk.info
info/gcl-tk.info-1
info/gcl-tk.info-2

index 1c111b05e89a440bee7335f9bc229e042779c757..b7e8009c042063a900f9fa457f351d5ebf94f419 100644 (file)
@@ -73,7 +73,7 @@
         (cons (list (car procls) (or (if (atom (car ll)) (car ll) (caar ll))))
               (decls-from-procls (cdr ll) (cdr procls) body)))))
         
-(defun c1lambda-expr (args &aux (regs (pop args)) requireds tv
+(defun c1lambda-expr (args osrc &aux (regs (pop args)) requireds tv
                           doc body ss is ts other-decls (ovars *vars*)
                           (*vars* *vars*) narg (info (make-info)) ctps)
 
   (check-vdecl (mapcar 'var-name tv) ts is)
   
   (setq body (c1decl-body other-decls body))
+  (let ((x (set-difference
+           (remove-if-not 'si::specialp
+                          (append regs (mapcar 'var-name *undefined-vars*)))
+           ss)))
+    (when x (push `(declare (special ,@x)) (cddr osrc))))
   (ref-vars body requireds)
   (dolist (var requireds) (check-vref var))
   
index fb14d9c83531bfbf14d0da6b9ee9b892e290cf2d..b9d72a2881c31c1757e426a2399ff17852389706 100644 (file)
@@ -39,8 +39,9 @@
                                   (unless (eq t (var-type v)) (var-type v)))
                        (var-loc v)))
     (unless (var-type v)
-      (cmpwarn "Type mismatches binding declared ~s variable ~s to type ~s."
-              (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1)))
+      (keyed-cmpnote (list (var-name v) 'type-propagation 'type 'init-type)
+                    "Type mismatches binding declared ~s variable ~s to type ~s."
+                    (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1)))
     (keyed-cmpnote (list (var-name v) 'type-propagation 'type 'init-type)
                   "Setting init type of ~s to ~s" (var-name v) (cmp-unnorm-tp (var-type v)))))
 
       (setq body nil))
 
     (c1add-globals (set-difference ss vnames))
+    (let ((x (set-difference (remove-if-not 'si::specialp vnames) ss)))
+      (when x (push `(declare (special ,@x)) (cdr args))))
     (check-vdecl vnames ts is)
     (setq body (c1decl-body other-decls body))
 
index 6accd794b199128a0cb89af62415d99b77fd6584..82cf9fff28fc2ec84e561190931f10b69f74c9d3 100644 (file)
       (push v vars)))
 
   (c1add-globals (set-difference ss vnames))
+  (let ((x (set-difference (remove-if-not 'si::specialp vnames) ss)))
+    (when x (push `(declare (special ,@x)) (cddr args))))
 
   (setq init-form (c1arg (cadr args) info))
 
index d4991a00eea8baac22b0ff046f087bc5a5fc0b31..a325fc5c53307d08624767bf4db9522315d25f75 100644 (file)
               ((let let* lambda) 
                `(,(car form) 
                  ,(mapcar (lambda (x) (if (atom x) x `(,(car x) ,@(portable-source (cdr x) t)))) (cadr form))
-                 ,@(let* ((r (delete-if (lambda (x) (or (not (si::specialp x)) (is-declared-special x (cddr form))))
-                                        (mapcar (lambda (x) (if (atom x) x (car x))) (cadr form)))));FIXME key name
-                     (when r `((declare (special ,@r)))))
                  ,@(ndbctxt (portable-source (cddr form) t))))
               ((quote function side-effects) form)
               (infer-tp `(,(car form) ,(cadr form)
                    ,@(let ((*mlts* (append fns *mlts*)))
                        (ndbctxt (portable-source (cddr form) t))))))
               (multiple-value-bind `(,(car form) ,(cadr form) ,(portable-source (caddr form))
-                                     ,@(let ((r (remove-if (lambda (x) (or (not (si::specialp x)) 
-                                                                           (is-declared-special x (cdddr form))))
-                                                           (cadr form))))
-                                         (when r `((declare (special ,@r)))))
                                      ,@(ndbctxt (portable-source (cdddr form) t))))
               ((case ccase ecase) `(,(car form) ,(portable-source (cadr form))
                                     ,@(mapcar (lambda (x) `(,(car x) ,@(portable-source (cdr x) t))) (cddr form))))))
 ;    (true "Ct")
     ((cons (eql vv) t) (fm-to-string (cadr form)))
     ((cons (member char-value fixnum-value character-value) t) (fm-to-string (caddr form)))
-    ((eql most-negative-fixnum)  #.(string-concatenate "(" (write-to-string (1+ most-negative-fixnum)) "- 1)"))
+    ((eql #.most-negative-fixnum)  #.(string-concatenate "(" (write-to-string (1+ most-negative-fixnum)) "- 1)"))
     (fixnum (format nil "~a" form)); string character
     (float (format nil "~10,,,,,,'eG" form))
     ((complex float)
   (let ((a (member '&aux ll)))
     (ldiff ll a)))
 
-(defun do-l1-fun (name src e b &aux (wns *warning-note-stack*) (*recursion-detected* (cons (list name) *recursion-detected*)))
+(defun do-l1-fun (name src e b osrc &aux (wns *warning-note-stack*) (*recursion-detected* (cons (list name) *recursion-detected*)))
 
-  (let* ((l (c1lambda-expr src))
+  (let* ((l (c1lambda-expr src osrc))
         (osig (car e))
         (sig (lam-e-to-sig l))
         (rd (cdar *recursion-detected*))
     (cond (rep
           (keyed-cmpnote (list name 'recursion) "Reprocessing ~s: ~s ~s" name osig sig)
           (setq *warning-note-stack* wns);FIXME try to use with-restore-vars
-          (do-l1-fun name src e b))
+          (do-l1-fun name src e b osrc))
          (l))))
 
 
         (*src-inline-recursion* (when vis (list (make-tagged-sir (list (sir-name name)) tag (ttl-ll (cadr src))))))
         (*c1exit* (list (make-c1exit name)))
         (*current-form* `(defun ,name))
-        (l (do-l1-fun name (cdr (new-defun-args src tag)) e b))
+        (l (do-l1-fun name (cdr (new-defun-args src tag)) e b src))
         (clv (get-clv l)))
     (setf (second e) (mapcan (lambda (x) (when (symbolp x) (list (cons x (get-sig x)))))
                             (info-ref (cadr l)))
          (fifth e) (logior (if (iflag-p (info-flags (cadr l)) side-effects) 0 2) (if (= (length clv) 0) 1 0))
          (sixth e) name)
     (when *sig-discovery*
-      (when (symbol-package name) (unless (eq name 'lambda) (push (cons name (apply 'si::make-function-plist e)) si::*sig-discovery-props*))))
+      (when (symbol-package name) (unless b (push (cons name (apply 'si::make-function-plist e)) si::*sig-discovery-props*))))
     l))
 
 ;; top-level lex-ref walker
index 9af186dae02dd1a0f147960ae562f806fe806bf0..300b01c1bb4b13f5f29e70a072aaea771b27b63c 100644 (file)
       (setq t1 (ensure-known-type (coerce-to-one-value t1)))
       (let* ((tp (type-and (var-dt v) t1)))
        (unless (or tp (not (and (var-dt v) t1)))
-         (cmpwarn "Type mismatches setting declared ~s variable ~s to type ~s from form ~s."
-              (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1) (car form)))
+         (keyed-cmpnote (list (var-name v) 'type-propagation 'type)
+                        "Type mismatches setting declared ~s variable ~s to type ~s from form ~s."
+                        (cmp-unnorm-tp (var-dt v)) (var-name v) (cmp-unnorm-tp t1) (car form)))
        (keyed-cmpnote (list (var-name v) 'type-propagation 'type)
                       "Setting var-type on ~s from ~s to ~s, form ~s, max ~s" 
                       (var-name v) (cmp-unnorm-tp (var-type v)) (cmp-unnorm-tp tp) (car form) (cmp-unnorm-tp (var-mt v)))
diff --git a/git.tag b/git.tag
index 0252445084f4cd4ee67b90773aa45a02ebecfe0d..d415ef43901390363b0cd46b731d20e592580a5e 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_7_2pre12"
+"Version_2_7_2pre13"
index 718250af833d1f17b1c6237e931b0fd5bf634c14..b0a137586b112fad3f8004e33804f5c68835222a 100644 (file)
@@ -1,4 +1,4 @@
-This is gcl-si.info, produced by makeinfo version 7.1 from gcl-si.texi.
+This is gcl-si.info, produced by makeinfo version 7.2 from gcl-si.texi.
 
 This is a Texinfo GCL SYSTEM INTERNALS Manual
 
@@ -12,46 +12,46 @@ END-INFO-DIR-ENTRY
 \1f
 Indirect:
 gcl-si.info-1: 319
-gcl-si.info-2: 347893
+gcl-si.info-2: 343510
 \1f
 Tag Table:
 (Indirect)
 Node: Top\7f319
 Node: Numbers\7f1239
-Node: Sequences and Arrays and Hash Tables\7f23636
-Node: Characters\7f49429
-Node: Lists\7f56825
-Node: Streams and Reading\7f70599
-Node: Special Forms and Functions\7f95986
-Node: Compilation\7f121638
-Node: Symbols\7f134272
-Node: Operating System\7f144031
-Node: Command Line\7f144247
-Node: Operating System Definitions\7f148429
-Node: Environment Variables\7f154786
-Node: Structures\7f156375
-Node: Iteration and Tests\7f157927
-Node: User Interface\7f161377
-Node: Doc\7f170439
-Node: Type\7f173724
-Node: GCL Specific\7f176384
-Node: Bignums\7f185027
-Node: C Interface\7f187717
-Node: Available Symbols\7f187909
-Node: External Shared Libraries\7f188400
-Node: System Definitions\7f203986
-Node: Regular Expressions\7f238596
-Node: Debugging\7f244844
-Node: Source Level Debugging in Emacs\7f245045
-Node: Low Level Debug Functions\7f249290
-Node: Miscellaneous\7f250290
-Node: Environment\7f250498
-Node: Inititialization\7f251123
-Node: Low Level X Interface\7f251667
-Node: Compiler Definitions\7f252264
-Node: JAPI GUI Library Binding\7f258393
-Node: Function Index\7f277447
-Node: Variable Index\7f347893
+Node: Sequences and Arrays and Hash Tables\7f23635
+Node: Characters\7f49430
+Node: Lists\7f56802
+Node: Streams and Reading\7f70576
+Node: Special Forms and Functions\7f95964
+Node: Compilation\7f121601
+Node: Symbols\7f133502
+Node: Operating System\7f143262
+Node: Command Line\7f143478
+Node: Operating System Definitions\7f147660
+Node: Environment Variables\7f154017
+Node: Structures\7f155607
+Node: Iteration and Tests\7f157159
+Node: User Interface\7f160609
+Node: Doc\7f169668
+Node: Type\7f172953
+Node: GCL Specific\7f175611
+Node: Bignums\7f184163
+Node: C Interface\7f186852
+Node: Available Symbols\7f187044
+Node: External Shared Libraries\7f187535
+Node: System Definitions\7f203120
+Node: Regular Expressions\7f235093
+Node: Debugging\7f241340
+Node: Source Level Debugging in Emacs\7f241541
+Node: Low Level Debug Functions\7f245786
+Node: Miscellaneous\7f246786
+Node: Environment\7f246994
+Node: Inititialization\7f247619
+Node: Low Level X Interface\7f248163
+Node: Compiler Definitions\7f248760
+Node: JAPI GUI Library Binding\7f254730
+Node: Function Index\7f273784
+Node: Variable Index\7f343510
 \1f
 End Tag Table
 
index 4d8d76023a0c13abe4606471226b168a4d122153..094f7223eca0cc864bf169928063f9d829fe96f5 100644 (file)
@@ -1,4 +1,4 @@
-This is gcl-si.info, produced by makeinfo version 7.1 from gcl-si.texi.
+This is gcl-si.info, produced by makeinfo version 7.2 from gcl-si.texi.
 
 This is a Texinfo GCL SYSTEM INTERNALS Manual
 
@@ -96,7 +96,7 @@ File: gcl-si.info,  Node: Numbers,  Next: Sequences and Arrays and Hash Tables,
 
      Returns, as three values, the integer interpretation of significand
      F, the exponent E, and the sign S of the given float, so that E
-     FLOAT = S * F * B where B = (FLOAT-RADIX FLOAT)
+     FLOAT = S * F * B where B = (FLOAT-RADIX FLOAT)
 
      F is a non-negative integer, E is an integer, and S is either 1 or
      -1.
@@ -130,7 +130,7 @@ File: gcl-si.info,  Node: Numbers,  Next: Sequences and Arrays and Hash Tables,
      or into RESULT-BIT-ARRAY otherwise.
 
  -- Function: INT-CHAR (integer)
-     Package:LISP
+     Package:SI
 
      Performs the inverse of CHAR-INT. Equivalent to CODE-CHAR in GCL.
 
@@ -211,9 +211,9 @@ File: gcl-si.info,  Node: Numbers,  Next: Sequences and Arrays and Hash Tables,
 
      Returns an integer produced by performing the logical operation
      specified by OP on the two integers.  OP must be the value of one
-     of the following constants: BOOLE-CLR     BOOLE-C1        BOOLE-XOR
-     BOOLE-ANDC1 BOOLE-SET     BOOLE-C2        BOOLE-EQV       BOOLE-ANDC2 BOOLE-1
-     BOOLE-AND BOOLE-NAND      BOOLE-ORC1 BOOLE-2      BOOLE-IOR       BOOLE-NOR
+     of the following constants: BOOLE-CLR BOOLE-C1 BOOLE-XOR
+     BOOLE-ANDC1 BOOLE-SET BOOLE-C2 BOOLE-EQV BOOLE-ANDC2 BOOLE-1
+     BOOLE-AND BOOLE-NAND BOOLE-ORC1 BOOLE-2 BOOLE-IOR BOOLE-NOR
      BOOLE-ORC2 See the variable docs of these constants for their
      operations.
 
@@ -441,7 +441,7 @@ File: gcl-si.info,  Node: Numbers,  Next: Sequences and Arrays and Hash Tables,
      Package:LISP
 
      Returns, as three values, the significand F, the exponent E, and
-     the sign S of the given float, so that E FLOAT = S * F * B        where B
+     the sign S of the given float, so that E FLOAT = S * F * B where B
      = (FLOAT-RADIX FLOAT)
 
      S and F are floating-point numbers of the same float format as
@@ -865,7 +865,7 @@ File: gcl-si.info,  Node: Numbers,  Next: Sequences and Arrays and Hash Tables,
      Package:LISP
 
      Returns the largest integer not larger than the NUMBER divided by
-     DIVISOR. The second returned value is (- NUMBER (* first-value
+     DIVISOR.  The second returned value is (- NUMBER (* first-value
      DIVISOR)).
 
  -- Function: PLUSP (number)
@@ -943,7 +943,7 @@ File: gcl-si.info,  Node: Sequences and Arrays and Hash Tables,  Next: Character
      elements
 
      except that all elements not satisfying TEST are replaced with
-     NEWITEM. SEQUENCE may be destroyed.
+     NEWITEM.  SEQUENCE may be destroyed.
 
  -- Function: FIND-IF (test sequence &key (from-end nil) (start 0) (end
           (length sequence)) (key #'identity))
@@ -1630,7 +1630,7 @@ File: gcl-si.info,  Node: Sequences and Arrays and Hash Tables,  Next: Character
      Package:LISP
 
      Combines all the elements of SEQUENCE using a binary operation
-     FUNCTION. If INITIAL-VALUE is supplied, it is logically placed
+     FUNCTION.  If INITIAL-VALUE is supplied, it is logically placed
      before the SEQUENCE.
 
  -- Function: STRING-LESSP (string1 string2 &key (start1 0) (end1
@@ -1672,10 +1672,10 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      STRING. This is faster than CHAR.
 
  -- Constant: CHAR-SUPER-BIT
-     Package:LISP The bit that indicates a super character.
+     Package:SI The bit that indicates a super character.
 
  -- Constant: CHAR-FONT-LIMIT
-     Package:LISP The upper exclusive bound on values produced by
+     Package:SI The upper exclusive bound on values produced by
      CHAR-FONT.
 
  -- Function: CHAR-DOWNCASE (char)
@@ -1685,7 +1685,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      returns CHAR.
 
  -- Function: STRING-CHAR-P (char)
-     Package:LISP
+     Package:SI
 
      Returns T if CHAR can be stored in a string.  In GCL, this function
      always returns T since any character in GCL can be stored in a
@@ -1720,7 +1720,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      order; NIL otherwise.
 
  -- Constant: CHAR-HYPER-BIT
-     Package:LISP The bit that indicates a hyper character.
+     Package:SI The bit that indicates a hyper character.
 
  -- Function: CODE-CHAR (code &optional (bits 0) (font 0))
      Package:LISP
@@ -1734,7 +1734,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      Returns the code attribute of CHAR.
 
  -- Constant: CHAR-CONTROL-BIT
-     Package:LISP The bit that indicates a control character.
+     Package:SI The bit that indicates a control character.
 
  -- Function: CHAR-LESSP (char &rest more-chars)
      Package:LISP
@@ -1744,7 +1744,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      upper-case equivalent is used.
 
  -- Function: CHAR-FONT (char)
-     Package:LISP
+     Package:SI
 
      Returns the font attribute of CHAR.
 
@@ -1761,7 +1761,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      order; NIL otherwise.
 
  -- Constant: CHAR-META-BIT
-     Package:LISP The bit that indicates a meta character.
+     Package:SI The bit that indicates a meta character.
 
  -- Function: GRAPHIC-CHAR-P (char)
      Package:LISP
@@ -1777,7 +1777,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      same.
 
  -- Constant: CHAR-BITS-LIMIT
-     Package:LISP The upper exclusive bound on values produced by
+     Package:SI The upper exclusive bound on values produced by
      CHAR-BITS.
 
  -- Function: CHARACTERP (x)
@@ -1802,13 +1802,13 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      Returns T if CHAR is an upper-case character; NIL otherwise.
 
  -- Function: CHAR-BIT (char name)
-     Package:LISP
+     Package:SI
 
      Returns T if the named bit is on in the character CHAR; NIL
      otherwise.  In GCL, this function always returns NIL.
 
  -- Function: MAKE-CHAR (char &optional (bits 0) (font 0))
-     Package:LISP
+     Package:SI
 
      Returns a character object with the same code attribute as CHAR and
      with the specified BITS and FONT attributes.
@@ -1875,7 +1875,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      Returns T if CHAR is either numeric or alphabetic; NIL otherwise.
 
  -- Function: CHAR-BITS (char)
-     Package:LISP
+     Package:SI
 
      Returns the bits attribute (which is always 0 in GCL) of CHAR.
 
@@ -1886,7 +1886,7 @@ File: gcl-si.info,  Node: Characters,  Next: Lists,  Prev: Sequences and Arrays
      specified RADIX. Returns NIL if no such character exists.
 
  -- Function: SET-CHAR-BIT (char name newvalue)
-     Package:LISP
+     Package:SI
 
      Returns a character just like CHAR except that the named bit is set
      or cleared, according to whether NEWVALUE is non-NIL or NIL. This
@@ -2642,7 +2642,7 @@ File: gcl-si.info,  Node: Streams and Reading,  Next: Special Forms and Function
      Package:LISP
 
      Prints OBJECT in the mostly readable representation.  Returns
-     OBJECT. Equivalent to (WRITE OBJECT :STREAM STREAM :ESCAPE T).
+     OBJECT.  Equivalent to (WRITE OBJECT :STREAM STREAM :ESCAPE T).
 
  -- Function: PRINC (object &optional (stream *standard-output*))
      Package:LISP
@@ -3226,7 +3226,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      Package:LISP List of all the lambda-list keywords used in GCL.
 
  -- Function: GET-SETF-METHOD (form)
-     Package:LISP
+     Package:SI
 
      Returns the five values (or five 'gangs') constituting the SETF
      method for FORM. See the doc of DEFINE-SETF-METHOD for the meanings
@@ -3373,7 +3373,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
           (defun name lambda-list {decl | doc}* {form}*)
 
      Defines a function as the global function definition of the symbol
-     NAME. The complete syntax of a lambda-list is: ({var}* [&optional
+     NAME.  The complete syntax of a lambda-list is: ({var}* [&optional
      {var | (var [initform [svar]])}*] [&rest var] [&key {var | ({var |
      (keyword var)} [initform [svar]])}* [&allow-other-keys]] [&aux {var
      | (var [initform])}*]) The doc-string DOC, if supplied, is saved as
@@ -3465,7 +3465,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      doc of PPRINT for the output-formatting.
 
  -- Variable: *EVALHOOK*
-     Package:LISP If *EVALHOOK* is not NIL, its value must be a function
+     Package:SI If *EVALHOOK* is not NIL, its value must be a function
      that can receive two arguments: a form to evaluate and an
      environment.  This function does the evaluation instead of EVAL.
 
@@ -3586,7 +3586,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
 
  -- Function: APPLYHOOK (function args evalhookfn applyhookfn &optional
           (env nil))
-     Package:LISP
+     Package:SI
 
      Applies FUNCTION to ARGS, with *EVALHOOK* bound to EVALHOOKFN and
      with *APPLYHOOK* bound to APPLYHOOKFN. Ignores the hook function
@@ -3697,7 +3697,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      to NIL.
 
  -- Function: GET-SETF-METHOD-MULTIPLE-VALUE (form)
-     Package:LISP Returns the five values (or five 'gangs') constituting
+     Package:SI Returns the five values (or five 'gangs') constituting
      the SETF method for FORM. See the doc of DEFINE-SETF-METHOD for the
      meanings of the gangs.  The third value (i.e., the list of store
      variables) may consist of any number of elements.  See the doc of
@@ -3756,7 +3756,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      returns NIL.
 
  -- Macro: DEFINE-SETF-METHOD
-     Package:LISP
+     Package:SI
 
      Syntax:
           (define-setf-method access-fun defmacro-lambda-list {decl | doc}*
@@ -3776,7 +3776,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      (documentation 'NAME 'setf).
 
  -- Special Form: COMPILER-LET
-     Package:LISP
+     Package:SI
 
      Syntax:
           (compiler-let ({var | (var [value])}*) {form}*)
@@ -3839,7 +3839,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      STATEMENTs.
 
  -- Variable: *APPLYHOOK*
-     Package:LISP Used to substitute another function for the implicit
+     Package:SI Used to substitute another function for the implicit
      APPLY normally done within EVAL. If *APPLYHOOK* is not NIL, its
      value must be a function which takes three arguments: a function to
      be applied, a list of arguments, and an environment.  This function
@@ -3933,7 +3933,7 @@ File: gcl-si.info,  Node: Special Forms and Functions,  Next: Compilation,  Prev
      from the UNWIND-PROTECT form.
 
  -- Function: EVALHOOK (form evalhookfn applyhookfn &optional (env nil))
-     Package:LISP
+     Package:SI
 
      Evaluates FORM with *EVALHOOK* bound to EVALHOOKFN and *APPLYHOOK*
      bound to APPLYHOOKFN. Ignores these hooks once, for the top-level
@@ -4030,7 +4030,7 @@ File: gcl-si.info,  Node: Compilation,  Next: Symbols,  Prev: Special Forms and
 
  -- Function: LINK (files image &optional post extra-libs (run-user-init
           t) &aux raw init)
-     Package:LISP
+     Package:COMPILER
 
      On systems where dlopen is used for relocations, one cannot make
      custom images containing loaded binary object files simply by
@@ -4227,31 +4227,17 @@ keyword is supplied to compile-file and *fasd-data* is not eq to
      arrays.  Please note that lisp functions are not (yet) displayed
      with their lisp names.  Please see also the PROFILE function.
 
- -- Function: GPROF-SET (begin end)
-     Package:SYSTEM
-
-     GCL now has preliminary support for profiling with gprof, an
-     externally supplied profiling tool at the C level which typically
-     accompanies gcc.  Support must be enabled at compile time with
-     -enable-gprof.  This function sets the address range used by
-     GPROF-START in specifying the section of the running program which
-     is to be profiled.  All subsequent calls to GPROF-START will use
-     this new address range.  By default, the range is set to begin at
-     the starting address of the .text section, and to end at the
-     current end of the running core.  These default values can be
-     restored by calling GPROF-SET with both argments set to 0.
-
  -- Variable: *DEFAULT-SYSTEM-P*
      Package:COMPILER Specifies the default setting of :SYSTEM-P used by
      COMPILE. Defaults to NIL.
 
  -- Variable: *DEFAULT-C-FILE*
      Package:COMPILER Specifies the default setting of :C-FILE used by
-     COMPILE. Defaults to NIL.
+     COMPILE.  Defaults to NIL.
 
  -- Variable: *DEFAULT-H-FILE*
      Package:COMPILER Specifies the default setting of :H-FILE used by
-     COMPILE. Defaults to NIL.
+     COMPILE.  Defaults to NIL.
 
  -- Variable: *DEFAULT-DATA-FILE*
      Package:COMPILER Specifies the default setting of :DATA-FILE used
@@ -4303,8 +4289,8 @@ File: gcl-si.info,  Node: Symbols,  Next: Operating System,  Prev: Compilation,
      Package:LISP
 
      Look on property list of SYMBOL for property with specified
-     INDICATOR. If found, splice this indicator and its value out of the
-     plist, and return T. If not found, returns NIL with no side
+     INDICATOR.  If found, splice this indicator and its value out of
+     the plist, and return T. If not found, returns NIL with no side
      effects.
 
  -- Function: SYMBOL-PACKAGE (symbol)
@@ -4927,7 +4913,7 @@ Several environment variables affect GCL:
 
  -- Environment Variable: GCL_MEM_BOUND
      A positive integer bounding GCL's heap to 1<<(n+1) bytes.  Trumps
-     GCL_MEM_MULTIPLE. Defaults to sizeof(long)-1.
+     GCL_MEM_MULTIPLE.  Defaults to sizeof(long)-1.
 
  -- Environment Variable: GCL_GC_ALLOC_MIN
      A positive float indicating the minimum fraction of heap to be
@@ -4988,7 +4974,7 @@ File: gcl-si.info,  Node: Structures,  Next: Iteration and Tests,  Prev: Operati
      making a lisp structure correspond to a C structure.
 
  -- Function: HELP (&optional symbol)
-     Package:LISP
+     Package:USER
 
      GCL specific: Prints the documentation associated with SYMBOL. With
      no argument, this function prints the greeting message to GCL
@@ -5119,7 +5105,7 @@ File: gcl-si.info,  Node: User Interface,  Next: Doc,  Prev: Iteration and Tests
      Package:LISP
 
      Subtracts the second and all subsequent NUMBERs from the first
-     NUMBER. With one arg, negates it.
+     NUMBER.  With one arg, negates it.
 
  -- Macro: UNTRACE
      Package:LISP
@@ -5150,7 +5136,7 @@ File: gcl-si.info,  Node: User Interface,  Next: Doc,  Prev: Iteration and Tests
      Evaluates FORM in the single-step mode and returns the value.
 
  -- Variable: *BREAK-ENABLE*
-     Package:LISP GCL specific: When an error occurrs, control enters to
+     Package:SI GCL specific: When an error occurrs, control enters to
      the break loop only if the value of this variable is non-NIL.
 
  -- Special Variable: /
@@ -5170,8 +5156,8 @@ File: gcl-si.info,  Node: User Interface,  Next: Doc,  Prev: Iteration and Tests
      Package:LISP Holds the I/O stream used by the GCL debugger.
 
  -- Variable: *BREAK-ON-WARNINGS*
-     Package:LISP When the function WARN is called, control enters to
-     the break loop only if the value of this varialbe is non-NIL.
+     Package:SI When the function WARN is called, control enters to the
+     break loop only if the value of this varialbe is non-NIL.
 
  -- Function: CERROR (continue-format-string error-format-string &rest
           args)
@@ -5483,7 +5469,7 @@ File: gcl-si.info,  Node: Type,  Next: GCL Specific,  Prev: Doc,  Up: Top
      Returns T if X is of the type TYPE; NIL otherwise.
 
  -- Function: COMMONP (x)
-     Package:LISP
+     Package:SI
 
      Returns T if X is a Common Lisp object; NIL otherwise.
 
@@ -5548,7 +5534,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
 ***************
 
  -- Function: SYSTEM (string)
-     Package:LISP
+     Package:SI
 
      GCL specific: Executes a Shell command as if STRING is an input to
      the Shell.  Not all versions of GCL support this function.  At
@@ -5580,13 +5566,8 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      Returns a string that identifies the machine version of the machine
      on which GCL is currently running.
 
- -- Function: BY ()
-     Package:LISP
-
-     GCL specific: Exits from GCL.
-
  -- Macro: DEFCFUN
-     Package:LISP
+     Package:SI
 
      Syntax:
           (defcfun header n {element}*)
@@ -5633,9 +5614,8 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
           C-type:
                    { object | int | char | float | double }
 
-
  -- Macro: CLINES
-     Package:LISP
+     Package:SI
 
      Syntax:
           (clines {string}*)
@@ -5650,7 +5630,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      Trumps any limits specified in the environment.
 
  -- Function: ALLOCATE (type number &optional (really-allocate nil))
-     Package:LISP
+     Package:SI
 
      GCL specific: Sets the maximum number of pages for the type class
      of the GCL implementation type TYPE to NUMBER. If REALLY-ALLOCATE
@@ -5658,7 +5638,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      be allocated immediately.
 
  -- Function: GBC (x)
-     Package:LISP
+     Package:SI
 
      GCL specific: Invokes the garbage collector (GC) with the
      collection level specified by X. NIL as the argument causes GC to
@@ -5666,7 +5646,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      everything.
 
  -- Function: SAVE (pathname)
-     Package:LISP
+     Package:SI
 
      GCL specific: Saves the current GCL core image into a program file
      specified by PATHNAME. This function depends on the version of GCL.
@@ -5675,7 +5655,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      permanent, and causes no future gc of currently loaded .o files.
 
  -- Function: HELP* (string &optional (package 'lisp))
-     Package:LISP
+     Package:USER
 
      GCL specific: Prints the documentation associated with those
      symbols in the specified package whose print names contain STRING
@@ -5684,7 +5664,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      searched.
 
  -- Macro: DEFLA
-     Package:LISP
+     Package:SI
 
      Syntax:
           (defla name lambda-list {decl | doc}* {form}*)
@@ -5701,7 +5681,7 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      DECL-SPECs.
 
  -- Macro: DEFENTRY
-     Package:LISP
+     Package:SI
 
      Syntax:
           (defentry name arg-types c-function)
@@ -5710,8 +5690,8 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      consists of a calling sequence to the C language function specified
      by C-FUNCTION. The interpreter ignores this form.  The ARG-TYPES
      specifies the C types of the arguments which C-FUNCTION requires.
-     The list of allowed types is (object char int float double string).
-     Code will be produced to coerce from a lisp object to the
+     The list of allowed types is (object char int long float double
+     string).  Code will be produced to coerce from a lisp object to the
      appropriate type before passing the argument to the C-FUNCTION. The
      c-function should be of the form (c-result-type c-fname) where
      c-result-type is a member of (void object char int float double
@@ -5753,7 +5733,6 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
               (setf (aref a n) (code-char 0)))
               a)
 
-
  -- Function: COPY-ARRAY-PORTION (x,y,i1,i2,n1)
      Package:SI Copy elements from X to Y starting at X[i1] to Y[i2] and
      doing N1 elements if N1 is supplied otherwise, doing the length of
@@ -5761,12 +5740,12 @@ File: gcl-si.info,  Node: GCL Specific,  Next: C Interface,  Prev: Type,  Up: To
      has implementation dependent results.
 
  -- Function: BYE ( &optional (exit-status 0))
-     Package:LISP
+     Package:SI
 
      GCL specific: Exits from GCL with exit-status.
 
  -- Function: USE-FAST-LINKS (turn-on)
-     Package:LISP
+     Package:SI
 
      GCL specific: If TURN-ON is not nil, the fast link mechanism is
      enabled, so that ordinary function calls will not appear in the
@@ -5841,7 +5820,6 @@ parentheses.
                    m (- (* (- i 1) (- (* 2 i) 1) (- (* 2 i) 3)))
                    tt (truncate (* m tt) (* d (the integer (expt i 3))))))))
 
-
 \1f
 File: gcl-si.info,  Node: C Interface,  Next: System Definitions,  Prev: GCL Specific,  Up: Top
 
@@ -5897,7 +5875,7 @@ File: gcl-si.info,  Node: External Shared Libraries,  Prev: C Interface,  Up: C
 
      Complex float and complex double types can be access via:
 
-     :fcomplex :dcomples
+     :fcomplex :dcomplex
 
      Pointers to types available are
 
@@ -6385,7 +6363,6 @@ File: gcl-si.info,  Node: External Shared Libraries,  Prev: C Interface,  Up: C
           >
           
 
-
 \1f
 File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interface,  Up: Top
 
@@ -6425,12 +6402,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      that it will only check for types which currently include NAME.
      After calling this the defstruct should not be altered.
 
- -- Function: MAXIMUM-ALLOCATABLE-PAGES (type)
-     Package:SI
-
-     GCL specific: Returns the current maximum number of pages for the
-     type class of the GCL implementation type TYPE.
-
  -- Function: ALLOCATED-RELOCATABLE-PAGES ()
      Package:SI
 
@@ -6442,12 +6413,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
 
      Give SYMBOL the VALUE on INDICATOR property.
 
- -- Function: ALLOCATED-PAGES (type)
-     Package:SI
-
-     GCL specific: Returns the number of pages currently allocated for
-     the type class of the GCL implementation type TYPE.
-
  -- Function: ALLOCATE-RELOCATABLE-PAGES (number)
      Package:SI
 
@@ -6717,17 +6682,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      records how many times the garbage collector has been called for
      each implementation type.
 
- -- Function: CATCH-BAD-SIGNALS ()
-     Package:SI
-
-     GCL/BSD specific: Installs a signal catcher for bad signals:
-     SIGILL, SIGIOT, SIGEMT, SIGBUS, SIGSEGV, SIGSYS. The signal
-     catcher, upon catching the signal, signals an error (and enter the
-     break-level).  Since the internal memory of GCL may be broken, the
-     user should check the signal and exit from GCL if necessary.  When
-     the signal is caught during garbage collection, GCL terminates
-     immediately.
-
  -- Function: RESET-STACK-LIMITS ()
      Package:SI
 
@@ -6741,7 +6695,7 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      non-NIL, the garbage collector prints some information on the
      terminal.  Usually SI:*GBC-MESSAGE* should be set NIL.
 
- -- Variable: *GBC-NOTIFY*
+ -- Variable: *NOTIFY-GBC*
      Package:SI GCL specific: If the value is non-NIL, the garbage
      collector prints a very brief one line message about the area
      causing the collection, and the time spent in internal time units.
@@ -6751,7 +6705,7 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      argument TYPE which is a lisp variable indicating the TYPE which
      caused the current collection.
 
- -- Funcition: ALLOCATED (type)
+ -- Function: ALLOCATED (type)
      Package:SI
 
      Returns 6 values:
@@ -6835,11 +6789,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      as closing files and resetting io streams.  It would not be
      possible to continue normally.
 
- -- Function: UNCATCH-BAD-SIGNALS ()
-     Package:SI
-
-     GCL/BSD specific: Undoes the effect of SI:CATCH-BAD-SIGNALS.
-
  -- Function: VS (i)
      Package:SI
 
@@ -6857,11 +6806,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      GCL specific: Returns the FIXNUM-th argument on the command line
      that invoked the GCL process.
 
- -- Variable: *DEFAULT-TIME-ZONE*
-     Package:SI GCL specific: Holds the default time zone.  The initial
-     value of SI:*DEFAULT- TIME-ZONE* is 6 (the time zone of Austin,
-     Texas).
-
  -- Function: GETENV (string)
      Package:SI
 
@@ -6898,7 +6842,7 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
 
      GCL specific: Starts the standard top-level listener of GCL. When
      the GCL process is invoked, it calls SI:TOP-LEVEL by (FUNCALL
-     'SI:TOP-LEVEL). To change the top-level of GCL, redefine
+     'SI:TOP-LEVEL).  To change the top-level of GCL, redefine
      SI:TOP-LEVEL and save the core imange in a file.  When the saved
      imange is invoked, it will start the redefined top-level.
 
@@ -6908,38 +6852,6 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
      GCL specific: Returns the value stack index of the i-th entity in
      the frame stack.
 
- -- Function: WRITE-DEBUG-SYMBOLS (start file &key (main-file
-          "/usr/local/schelter/xgcl/unixport/raw_gcl") (output-file
-          "debug-symbols.o" ))
-     Package:SI
-
-     Write out a file of debug-symbols using address START as the place
-     where FILE will be loaded into the running executable MAIN-FILE.
-     The last is a keyword argument.
-
- -- Function: PROF (x y)
-     Package:SI
-
-     These functions in the SI package are GCL specific, and allow
-     monitoring the run time of functions loaded into GCL, as well as
-     the basic functions.  Sample Usage: (si::set-up-profile 1000000)
-     (si::prof 0 90) run program (si::prof 0 0) ;; turn off profile
-     (si::display-prof) (si::clear-profile) (si::prof 0 90) ;; start
-     profile again run program ..  Profile can be stopped with (si::prof
-     0 0) and restarted with (si::prof 0 90) The START-ADDRESS will
-     correspond to the beginning of the profile array, and the SCALE
-     will mean that 256 bytes of code correspond to SCALE bytes in the
-     profile array.
-
-     Thus if the profile array is 1,000,000 bytes long and the code
-     segment is 5 megabytes long you can profile the whole thing using a
-     scale of 50 Note that long runs may result in overflow, and so an
-     understating of the time in a function.
-
-     You must run intensively however since, with a scale of 128 it
-     takes 6,000,000 times through a loop to overflow the sampling in
-     one part of the code.
-
  -- Function: CATCH-FATAL (i)
      Package:SI
 
@@ -7034,7 +6946,7 @@ File: gcl-si.info,  Node: System Definitions,  Next: Debugging,  Prev: C Interfa
 
      If MIN-PAGES is 0, then this type will not be swept by SGC.
      Otherwise this is the minimum number of pages to make available to
-     SGC. MAX-PAGES is the upper limit of such pages.  Only pages with
+     SGC.  MAX-PAGES is the upper limit of such pages.  Only pages with
      PERCENT-FREE objects on them, will be assigned to SGC. A list of
      the previous values for min, max and percent are returned.
 
@@ -7397,7 +7309,6 @@ example:
       (match-beginning 3) ==> -1
       (match-end 3) ==> -1
 
-
    In the above example the return value of â€˜1’ (which is â€˜> -1’)
 indicates that a match was found.  The entire match runs from 1 to 4.
 Rule 4 specifies that (ab|a) gets first shot at the input string and
@@ -7642,7 +7553,7 @@ File: gcl-si.info,  Node: Compiler Definitions,  Next: JAPI GUI Library Binding,
      (compile-file "foo2.lisp")
 
      This would create foo1.fn and foo2.fn.  These may be loaded using
-     LOAD. Each time compile-file is called the data base is cleared.
+     LOAD.  Each time compile-file is called the data base is cleared.
      Immediately after the compilation, the data base consists of data
      from the compilation.  Thus if you wished to find functions called
      but not defined in the current file, you could do
@@ -7693,8 +7604,7 @@ File: gcl-si.info,  Node: Compiler Definitions,  Next: JAPI GUI Library Binding,
           or
           (mapcar 'load (directory "*.fn")) (compiler::list-undefined-functions)
 
-
- -- Function: COMPILER-DEFAULT-TYPE (pathname)
+ -- Function: *COMPILER-DEFAULT-TYPE* (pathname)
      Package:COMPILER
 
      Allows you to set the default file extension for compiler source
@@ -7737,13 +7647,6 @@ File: gcl-si.info,  Node: Compiler Definitions,  Next: JAPI GUI Library Binding,
 
           >
 
-
- -- Function: COMPILER-RESET-TYPE ()
-     Package:COMPILER
-
-     Resets the default compiler input file extension to the GCL
-     historical value of #".lsp".
-
  -- Variable: *CC*
      Package:COMPILER Has value a string which controls which C compiler
      is used by GCL. Usually this string is obtained from the
@@ -8290,8 +8193,10 @@ Appendix A Function Index
 
 * -:                                     User Interface.      (line  10)
 * *:                                     Numbers.             (line 557)
-* *MAKE-CONSTANT:                        System Definitions.  (line 292)
-* *MAKE-SPECIAL:                         System Definitions.  (line 387)
+* *COMPILER-DEFAULT-TYPE*:               Compiler Definitions.
+                                                              (line  86)
+* *MAKE-CONSTANT:                        System Definitions.  (line 280)
+* *MAKE-SPECIAL:                         System Definitions.  (line 364)
 * /:                                     Numbers.             (line 199)
 * /=:                                    Numbers.             (line  72)
 * +:                                     Numbers.             (line 658)
@@ -8303,26 +8208,25 @@ Appendix A Function Index
 * 1-:                                    Numbers.             (line 411)
 * 1+:                                    Numbers.             (line 208)
 * ABS:                                   Numbers.             (line 707)
-* ACCEPT:                                System Definitions.  (line 894)
+* ACCEPT:                                System Definitions.  (line 829)
 * ACCEPT-SOCKET-CONNECTION:              System Definitions.  (line  18)
 * ACONS:                                 Lists.               (line 254)
 * ACOS:                                  Numbers.             (line 603)
 * ACOSH:                                 Numbers.             (line 631)
-* ADDRESS:                               System Definitions.  (line 405)
+* ADDRESS:                               System Definitions.  (line 382)
 * ADJOIN:                                Lists.               (line 383)
 * ADJUST-ARRAY:                          Sequences and Arrays and Hash Tables.
                                                               (line 549)
 * ADJUSTABLE-ARRAY-P:                    Sequences and Arrays and Hash Tables.
                                                               (line 250)
-* ALLOCATE:                              GCL Specific.        (line 108)
+* ALLOCATE:                              GCL Specific.        (line 102)
 * ALLOCATE-CONTIGUOUS-PAGES:             System Definitions.  (line  24)
-* ALLOCATE-GROWTH:                       System Definitions.  (line 652)
-* ALLOCATE-RELOCATABLE-PAGES:            System Definitions.  (line  62)
-* ALLOCATE-SGC:                          System Definitions.  (line 643)
-* ALLOCATED:                             System Definitions.  (line 365)
-* ALLOCATED-CONTIGUOUS-PAGES:            System Definitions.  (line  68)
-* ALLOCATED-PAGES:                       System Definitions.  (line  56)
-* ALLOCATED-RELOCATABLE-PAGES:           System Definitions.  (line  45)
+* ALLOCATE-GROWTH:                       System Definitions.  (line 587)
+* ALLOCATE-RELOCATABLE-PAGES:            System Definitions.  (line  50)
+* ALLOCATE-SGC:                          System Definitions.  (line 578)
+* ALLOCATED:                             System Definitions.  (line 342)
+* ALLOCATED-CONTIGUOUS-PAGES:            System Definitions.  (line  56)
+* ALLOCATED-RELOCATABLE-PAGES:           System Definitions.  (line  39)
 * ALPHA-CHAR-P:                          Characters.          (line 151)
 * ALPHANUMERICP:                         Characters.          (line 230)
 * AND:                                   Special Forms and Functions.
@@ -8336,8 +8240,8 @@ Appendix A Function Index
 * APROPOS-LIST:                          Symbols.             (line 315)
 * AREF:                                  Sequences and Arrays and Hash Tables.
                                                               (line 634)
-* ARGC:                                  System Definitions.  (line 418)
-* ARGV:                                  System Definitions.  (line 465)
+* ARGC:                                  System Definitions.  (line 395)
+* ARGV:                                  System Definitions.  (line 437)
 * ARRAY-DIMENSION:                       Sequences and Arrays and Hash Tables.
                                                               (line 108)
 * ARRAY-DIMENSIONS:                      Sequences and Arrays and Hash Tables.
@@ -8366,8 +8270,8 @@ Appendix A Function Index
 * ATAN:                                  Numbers.             (line 456)
 * ATANH:                                 Numbers.             (line 471)
 * ATOM:                                  Lists.               (line 559)
-* BDS-VAL:                               System Definitions.  (line 302)
-* BDS-VAR:                               System Definitions.  (line 109)
+* BDS-VAL:                               System Definitions.  (line 290)
+* BDS-VAR:                               System Definitions.  (line  97)
 * BIT:                                   Sequences and Arrays and Hash Tables.
                                                               (line 618)
 * BIT-AND:                               Numbers.             (line 284)
@@ -8395,10 +8299,9 @@ Appendix A Function Index
 * BOTH-CASE-P:                           Characters.          (line  20)
 * BOUNDP:                                Symbols.             (line 230)
 * BREAK:                                 User Interface.      (line 120)
-* BREAK-FUNCTION:                        System Definitions.  (line 782)
+* BREAK-FUNCTION:                        System Definitions.  (line 717)
 * BUTLAST:                               Lists.               (line 281)
-* BY:                                    GCL Specific.        (line  39)
-* BYE:                                   GCL Specific.        (line 219)
+* BYE:                                   GCL Specific.        (line 212)
 * BYTE:                                  Numbers.             (line 251)
 * BYTE-POSITION:                         Numbers.             (line 298)
 * BYTE-SIZE:                             Numbers.             (line 341)
@@ -8421,8 +8324,7 @@ Appendix A Function Index
                                                               (line 528)
 * CATCH:                                 Special Forms and Functions.
                                                               (line 487)
-* CATCH-BAD-SIGNALS:                     System Definitions.  (line 331)
-* CATCH-FATAL:                           System Definitions.  (line 554)
+* CATCH-FATAL:                           System Definitions.  (line 489)
 * CCASE:                                 Special Forms and Functions.
                                                               (line  62)
 * CDAAAR:                                Lists.               (line 482)
@@ -8466,14 +8368,14 @@ Appendix A Function Index
 * CHAR>=:                                Characters.          (line 115)
 * CHARACTER:                             Characters.          (line 174)
 * CHARACTERP:                            Characters.          (line 141)
-* CHDIR:                                 System Definitions.  (line 251)
+* CHDIR:                                 System Definitions.  (line 239)
 * CHECK-TYPE:                            Type.                (line  39)
 * CIS:                                   Numbers.             (line 717)
 * CLEAR-INPUT:                           Streams and Reading. (line 284)
 * CLEAR-OUTPUT:                          Streams and Reading. (line 162)
-* CLINES:                                GCL Specific.        (line  93)
+* CLINES:                                GCL Specific.        (line  87)
 * CLOSE:                                 Streams and Reading. (line 393)
-* CLOSE-FASD:                            System Definitions.  (line 724)
+* CLOSE-FASD:                            System Definitions.  (line 659)
 * CLRHASH:                               Sequences and Arrays and Hash Tables.
                                                               (line 412)
 * CODE-CHAR:                             Characters.          (line  83)
@@ -8481,14 +8383,10 @@ Appendix A Function Index
 * COMMONP:                               Type.                (line  27)
 * COMPILE:                               Compilation.         (line   6)
 * COMPILE-FILE:                          Compilation.         (line  77)
-* COMPILED-FUNCTION-NAME:                System Definitions.  (line 125)
+* COMPILED-FUNCTION-NAME:                System Definitions.  (line 113)
 * COMPILED-FUNCTION-P:                   Compilation.         (line 196)
-* COMPILER-DEFAULT-TYPE:                 Compiler Definitions.
-                                                              (line  87)
 * COMPILER-LET:                          Special Forms and Functions.
                                                               (line 559)
-* COMPILER-RESET-TYPE:                   Compiler Definitions.
-                                                              (line 131)
 * COMPLEX:                               Numbers.             (line 568)
 * COMPLEXP:                              Numbers.             (line 507)
 * CONCATENATE:                           Sequences and Arrays and Hash Tables.
@@ -8500,12 +8398,12 @@ Appendix A Function Index
 * CONSP:                                 Lists.               (line  55)
 * CONSTANTP:                             Type.                (line  16)
 * COPY-ALIST:                            Lists.               (line 287)
-* COPY-ARRAY-PORTION:                    GCL Specific.        (line 213)
+* COPY-ARRAY-PORTION:                    GCL Specific.        (line 206)
 * COPY-LIST:                             Lists.               (line 190)
 * COPY-READTABLE:                        Streams and Reading. (line 447)
 * COPY-SEQ:                              Sequences and Arrays and Hash Tables.
                                                               (line  17)
-* COPY-STREAM:                           System Definitions.  (line 257)
+* COPY-STREAM:                           System Definitions.  (line 245)
 * COPY-SYMBOL:                           Symbols.             (line 131)
 * COPY-TREE:                             Lists.               (line 554)
 * COS:                                   Numbers.             (line 443)
@@ -8518,26 +8416,26 @@ Appendix A Function Index
                                                               (line 380)
 * CTYPECASE:                             Special Forms and Functions.
                                                               (line 733)
-* DBL:                                   System Definitions.  (line 768)
+* DBL:                                   System Definitions.  (line 703)
 * DECF:                                  Numbers.             (line 448)
 * DECLARE:                               Special Forms and Functions.
                                                               (line 173)
 * DECODE-FLOAT:                          Numbers.             (line 366)
 * DECODE-UNIVERSAL-TIME:                 Operating System Definitions.
                                                               (line  42)
-* DEFCFUN:                               GCL Specific.        (line  44)
+* DEFCFUN:                               GCL Specific.        (line  39)
 * DEFCONSTANT:                           Special Forms and Functions.
                                                               (line 675)
 * DEFDLFUN:                              External Shared Libraries.
                                                               (line   6)
-* DEFENTRY:                              GCL Specific.        (line 159)
-* DEFINE-COMPILER-MACRO:                 System Definitions.  (line 760)
-* DEFINE-INLINE-FUNCTION:                System Definitions.  (line 750)
+* DEFENTRY:                              GCL Specific.        (line 153)
+* DEFINE-COMPILER-MACRO:                 System Definitions.  (line 695)
+* DEFINE-INLINE-FUNCTION:                System Definitions.  (line 685)
 * DEFINE-MODIFY-MACRO:                   Special Forms and Functions.
                                                               (line 497)
 * DEFINE-SETF-METHOD:                    Special Forms and Functions.
                                                               (line 539)
-* DEFLA:                                 GCL Specific.        (line 142)
+* DEFLA:                                 GCL Specific.        (line 136)
 * DEFMACRO:                              Special Forms and Functions.
                                                               (line 216)
 * DEFPARAMETER:                          Special Forms and Functions.
@@ -8569,7 +8467,7 @@ Appendix A Function Index
                                                               (line  67)
 * DIRECTORY-NAMESTRING:                  Streams and Reading. (line 455)
 * DISASSEMBLE:                           Characters.          (line  59)
-* DISPLACED-ARRAY-P:                     System Definitions.  (line 459)
+* DISPLACED-ARRAY-P:                     System Definitions.  (line 431)
 * DO:                                    Streams and Reading. (line 188)
 * DO-ALL-SYMBOLS:                        Iteration and Tests. (line  28)
 * DO-EXTERNAL-SYMBOLS:                   Iteration and Tests. (line   6)
@@ -8602,7 +8500,7 @@ Appendix A Function Index
 * EQUALP:                                Iteration and Tests. (line  74)
 * ERROR:                                 Special Forms and Functions.
                                                               (line 691)
-* ERROR-SET:                             System Definitions.  (line 115)
+* ERROR-SET:                             System Definitions.  (line 103)
 * ETYPECASE:                             Special Forms and Functions.
                                                               (line 120)
 * EVAL:                                  Special Forms and Functions.
@@ -8616,12 +8514,12 @@ Appendix A Function Index
 * EXP:                                   Numbers.             (line 360)
 * EXPORT:                                Symbols.             (line 208)
 * EXPT:                                  Numbers.             (line 616)
-* FASLINK:                               System Definitions.  (line 483)
+* FASLINK:                               System Definitions.  (line 450)
 * FBOUNDP:                               Symbols.             (line 164)
 * FCEILING:                              Numbers.             (line 216)
 * FFLOOR:                                Numbers.             (line 642)
 * FIFTH:                                 Lists.               (line  40)
-* FILE:                                  System Definitions.  (line 220)
+* FILE:                                  System Definitions.  (line 208)
 * FILE-AUTHOR:                           Operating System Definitions.
                                                               (line  24)
 * FILE-LENGTH:                           Streams and Reading. (line 102)
@@ -8641,11 +8539,11 @@ Appendix A Function Index
 * FIND-IF-NOT:                           Sequences and Arrays and Hash Tables.
                                                               (line 695)
 * FIND-PACKAGE:                          Symbols.             (line 307)
-* FIND-SHARING-TOP:                      System Definitions.  (line 736)
+* FIND-SHARING-TOP:                      System Definitions.  (line 671)
 * FIND-SYMBOL:                           Symbols.             (line 149)
 * FINISH-OUTPUT:                         Streams and Reading. (line 172)
 * FIRST:                                 Lists.               (line 372)
-* FIXNUMP:                               System Definitions.  (line 297)
+* FIXNUMP:                               System Definitions.  (line 285)
 * FLET:                                  Special Forms and Functions.
                                                               (line 264)
 * FLOAT:                                 Numbers.             (line 534)
@@ -8659,15 +8557,15 @@ Appendix A Function Index
 * FORCE-OUTPUT:                          Streams and Reading. (line 126)
 * FORMAT:                                Streams and Reading. (line 519)
 * FOURTH:                                Lists.               (line 318)
-* FP-INPUT-STREAM:                       System Definitions.  (line 798)
-* FP-OUTPUT-STREAM:                      System Definitions.  (line 804)
-* FREAD:                                 System Definitions.  (line 598)
+* FP-INPUT-STREAM:                       System Definitions.  (line 733)
+* FP-OUTPUT-STREAM:                      System Definitions.  (line 739)
+* FREAD:                                 System Definitions.  (line 533)
 * FREEZE-DEFSTRUCT:                      System Definitions.  (line  32)
 * FRESH-LINE:                            Streams and Reading. (line 488)
 * FROUND:                                Numbers.             (line 380)
-* FRS-BDS:                               System Definitions.  (line 280)
-* FRS-IHS:                               System Definitions.  (line 318)
-* FRS-VS:                                System Definitions.  (line 516)
+* FRS-BDS:                               System Definitions.  (line 268)
+* FRS-IHS:                               System Definitions.  (line 306)
+* FRS-VS:                                System Definitions.  (line 483)
 * FTRUNCATE:                             Numbers.             (line 169)
 * FUNCALL:                               Special Forms and Functions.
                                                               (line 518)
@@ -8675,9 +8573,9 @@ Appendix A Function Index
                                                               (line 354)
 * FUNCTIONP:                             Special Forms and Functions.
                                                               (line 253)
-* FWRITE:                                System Definitions.  (line 590)
-* GBC:                                   GCL Specific.        (line 116)
-* GBC-TIME:                              System Definitions.  (line 581)
+* FWRITE:                                System Definitions.  (line 525)
+* GBC:                                   GCL Specific.        (line 110)
+* GBC-TIME:                              System Definitions.  (line 516)
 * GCD:                                   Numbers.             (line 763)
 * GENSYM:                                Symbols.             (line   6)
 * GENTEMP:                               Symbols.             (line 247)
@@ -8685,7 +8583,7 @@ Appendix A Function Index
 * GET-DECODED-TIME:                      Operating System Definitions.
                                                               (line   6)
 * GET-DISPATCH-MACRO-CHARACTER:          Streams and Reading. (line 470)
-* GET-HOLE-SIZE:                         System Definitions.  (line  80)
+* GET-HOLE-SIZE:                         System Definitions.  (line  68)
 * GET-INTERNAL-REAL-TIME:                Operating System Definitions.
                                                               (line 169)
 * GET-INTERNAL-RUN-TIME:                 Operating System Definitions.
@@ -8697,17 +8595,16 @@ Appendix A Function Index
                                                               (line   9)
 * GET-SETF-METHOD-MULTIPLE-VALUE:        Special Forms and Functions.
                                                               (line 480)
-* GET-STRING-INPUT-STREAM-INDEX:         System Definitions.  (line  98)
+* GET-STRING-INPUT-STREAM-INDEX:         System Definitions.  (line  86)
 * GET-UNIVERSAL-TIME:                    Operating System Definitions.
                                                               (line 144)
-* GETENV:                                System Definitions.  (line 476)
+* GETENV:                                System Definitions.  (line 443)
 * GETF:                                  Lists.               (line 424)
 * GETHASH:                               Sequences and Arrays and Hash Tables.
                                                               (line 297)
 * GO:                                    Special Forms and Functions.
                                                               (line 604)
 * GPROF-QUIT:                            Compilation.         (line 210)
-* GPROF-SET:                             Compilation.         (line 221)
 * GPROF-START:                           Compilation.         (line 201)
 * GRAPHIC-CHAR-P:                        Characters.          (line 124)
 * HASH-TABLE-COUNT:                      Sequences and Arrays and Hash Tables.
@@ -8715,21 +8612,21 @@ Appendix A Function Index
 * HASH-TABLE-P:                          Sequences and Arrays and Hash Tables.
                                                               (line 375)
 * HELP:                                  Structures.          (line  33)
-* HELP*:                                 GCL Specific.        (line 133)
+* HELP*:                                 GCL Specific.        (line 127)
 * HOST-NAMESTRING:                       Operating System Definitions.
                                                               (line  13)
 * IDENTITY:                              Special Forms and Functions.
                                                               (line 665)
 * IF:                                    Special Forms and Functions.
                                                               (line 696)
-* IHS-FUN:                               System Definitions.  (line 286)
-* IHS-VS:                                System Definitions.  (line 136)
+* IHS-FUN:                               System Definitions.  (line 274)
+* IHS-VS:                                System Definitions.  (line 124)
 * IMAGPART:                              Numbers.             (line 422)
 * IMPORT:                                Symbols.             (line 278)
 * IN-PACKAGE:                            Symbols.             (line 176)
 * INCF:                                  Numbers.             (line 115)
 * INFO:                                  Doc.                 (line  12)
-* INIT-SYSTEM:                           System Definitions.  (line 263)
+* INIT-SYSTEM:                           System Definitions.  (line 251)
 * INPUT-STREAM-P:                        Streams and Reading. (line 410)
 * INSPECT:                               User Interface.      (line  82)
 * INT-CHAR:                              Numbers.             (line  58)
@@ -8737,7 +8634,7 @@ Appendix A Function Index
 * INTEGER-LENGTH:                        Numbers.             (line 581)
 * INTEGERP:                              Numbers.             (line 427)
 * INTERN:                                Symbols.             (line 201)
-* INTERPRET:                             System Definitions.  (line 228)
+* INTERPRET:                             System Definitions.  (line 216)
 * INTERSECTION:                          Lists.               (line 215)
 * ISQRT:                                 Numbers.             (line 732)
 * KEYWORDP:                              Symbols.             (line  14)
@@ -8824,7 +8721,7 @@ Appendix A Function Index
 * MAKE-STRING-INPUT-STREAM:              Streams and Reading. (line  48)
 * MAKE-STRING-INPUT-STREAM <1>:          User Interface.      (line  29)
 * MAKE-STRING-OUTPUT-STREAM:             Streams and Reading. (line 583)
-* MAKE-STRING-OUTPUT-STREAM-FROM-STRING: System Definitions.  (line 392)
+* MAKE-STRING-OUTPUT-STREAM-FROM-STRING: System Definitions.  (line 369)
 * MAKE-SYMBOL:                           Symbols.             (line  67)
 * MAKE-SYNONYM-STREAM:                   Streams and Reading. (line 589)
 * MAKE-TWO-WAY-STREAM:                   Streams and Reading. (line 437)
@@ -8839,11 +8736,10 @@ Appendix A Function Index
 * MAPL:                                  Lists.               (line 113)
 * MAPLIST:                               Lists.               (line 524)
 * MASK-FIELD:                            Numbers.             (line 110)
-* MATCH-BEGINNING:                       System Definitions.  (line 854)
-* MATCH-END:                             System Definitions.  (line 861)
+* MATCH-BEGINNING:                       System Definitions.  (line 789)
+* MATCH-END:                             System Definitions.  (line 796)
 * MAX:                                   Numbers.             (line 515)
-* MAXIMUM-ALLOCATABLE-PAGES:             System Definitions.  (line  39)
-* MAXIMUM-CONTIGUOUS-PAGES:              System Definitions.  (line  74)
+* MAXIMUM-CONTIGUOUS-PAGES:              System Definitions.  (line  62)
 * MEMBER:                                Lists.               (line 590)
 * MEMBER-IF:                             Lists.               (line 548)
 * MEMBER-IF-NOT:                         Lists.               (line 454)
@@ -8868,12 +8764,12 @@ Appendix A Function Index
                                                               (line 648)
 * NAME-CHAR:                             Characters.          (line   6)
 * NAMESTRING:                            Streams and Reading. (line 382)
-* NANI:                                  System Definitions.  (line 424)
+* NANI:                                  System Definitions.  (line 401)
 * NBUTLAST:                              Lists.               (line  97)
 * NCONC:                                 Lists.               (line  45)
 * NINTERSECTION:                         Lists.               (line   6)
 * NINTH:                                 Lists.               (line 477)
-* NLOAD:                                 System Definitions.  (line 775)
+* NLOAD:                                 System Definitions.  (line 710)
 * NOT:                                   Special Forms and Functions.
                                                               (line 670)
 * NOTANY:                                Sequences and Arrays and Hash Tables.
@@ -8909,12 +8805,12 @@ Appendix A Function Index
 * NUNION:                                Lists.               (line 274)
 * ODDP:                                  Numbers.             (line 722)
 * OPEN:                                  Streams and Reading. (line  22)
-* OPEN-FASD:                             System Definitions.  (line 684)
+* OPEN-FASD:                             System Definitions.  (line 619)
 * OPEN-NAMED-SOCKET:                     System Definitions.  (line  11)
 * OR:                                    Special Forms and Functions.
                                                               (line 723)
 * OUTPUT-STREAM-P:                       Streams and Reading. (line 252)
-* OUTPUT-STREAM-STRING:                  System Definitions.  (line  92)
+* OUTPUT-STREAM-STRING:                  System Definitions.  (line  80)
 * PACKAGE-NAME:                          Symbols.             (line 302)
 * PACKAGE-NICKNAMES:                     Symbols.             (line 273)
 * PACKAGE-SHADOWING-SYMBOLS:             Symbols.             (line 195)
@@ -8951,8 +8847,7 @@ Appendix A Function Index
 * PRINT:                                 Streams and Reading. (line 112)
 * PROBE-FILE:                            Streams and Reading. (line 643)
 * PROCLAIM:                              Compilation.         (line 184)
-* PROCLAMATION:                          GCL Specific.        (line 152)
-* PROF:                                  System Definitions.  (line 531)
+* PROCLAMATION:                          GCL Specific.        (line 146)
 * PROG:                                  Special Forms and Functions.
                                                               (line 613)
 * PROG*:                                 Special Forms and Functions.
@@ -8971,7 +8866,7 @@ Appendix A Function Index
 * PSETQ:                                 Symbols.             (line  73)
 * PUSH:                                  Lists.               (line 349)
 * PUSHNEW:                               Lists.               (line 395)
-* PUTPROP:                               System Definitions.  (line  51)
+* PUTPROP:                               System Definitions.  (line  45)
 * QUOTE:                                 Special Forms and Functions.
                                                               (line 308)
 * RANDOM:                                Numbers.             (line 809)
@@ -8987,7 +8882,7 @@ Appendix A Function Index
 * READ-CHAR:                             Streams and Reading. (line 239)
 * READ-CHAR-NO-HANG:                     Streams and Reading. (line 481)
 * READ-DELIMITED-LIST:                   Streams and Reading. (line 677)
-* READ-FASD-TOP:                         System Definitions.  (line 717)
+* READ-FASD-TOP:                         System Definitions.  (line 652)
 * READ-FROM-STRING:                      Streams and Reading. (line 203)
 * READ-LINE:                             Streams and Reading. (line 318)
 * READ-PRESERVING-WHITESPACE:            Streams and Reading. (line  72)
@@ -9017,8 +8912,8 @@ Appendix A Function Index
                                                               (line 396)
 * REQUIRE:                               Operating System Definitions.
                                                               (line  90)
-* RESET-GBC-COUNT:                       System Definitions.  (line 324)
-* RESET-STACK-LIMITS:                    System Definitions.  (line 342)
+* RESET-GBC-COUNT:                       System Definitions.  (line 312)
+* RESET-STACK-LIMITS:                    System Definitions.  (line 319)
 * REST:                                  Lists.               (line 242)
 * RETURN:                                Special Forms and Functions.
                                                               (line 429)
@@ -9033,9 +8928,9 @@ Appendix A Function Index
 * ROUND:                                 Numbers.             (line 543)
 * RPLACA:                                Lists.               (line 264)
 * RPLACD:                                Lists.               (line 449)
-* RUN-PROCESS:                           System Definitions.  (line 828)
-* SAVE:                                  GCL Specific.        (line 124)
-* SAVE-SYSTEM:                           System Definitions.  (line 437)
+* RUN-PROCESS:                           System Definitions.  (line 763)
+* SAVE:                                  GCL Specific.        (line 118)
+* SAVE-SYSTEM:                           System Definitions.  (line 414)
 * SBIT:                                  Sequences and Arrays and Hash Tables.
                                                               (line  34)
 * SCALE-FLOAT:                           Numbers.             (line 626)
@@ -9048,21 +8943,21 @@ Appendix A Function Index
 * SET-DIFFERENCE:                        Lists.               (line 530)
 * SET-DISPATCH-MACRO-CHARACTER:          Streams and Reading. (line  85)
 * SET-EXCLUSIVE-OR:                      Lists.               (line 407)
-* SET-HOLE-SIZE:                         System Definitions.  (line 275)
-* SET-LOG-MAXPAGE-BOUND:                 GCL Specific.        (line 102)
+* SET-HOLE-SIZE:                         System Definitions.  (line 263)
+* SET-LOG-MAXPAGE-BOUND:                 GCL Specific.        (line  96)
 * SET-MACRO-CHARACTER:                   Streams and Reading. (line 119)
 * SET-SYNTAX-FROM-CHAR:                  Streams and Reading. (line 403)
 * SETF:                                  Special Forms and Functions.
                                                               (line  27)
 * SETQ:                                  Symbols.             (line 101)
 * SEVENTH:                               Lists.               (line 173)
-* SGC-ON:                                System Definitions.  (line 607)
+* SGC-ON:                                System Definitions.  (line 542)
 * SHADOW:                                Symbols.             (line 157)
 * SHADOWING-IMPORT:                      Symbols.             (line  36)
 * SHIFTF:                                Numbers.             (line 265)
 * SHORT-SITE-NAME:                       Operating System Definitions.
                                                               (line  61)
-* SIGNATURE:                             System Definitions.  (line 224)
+* SIGNATURE:                             System Definitions.  (line 212)
 * SIGNUM:                                Numbers.             (line   6)
 * SIMPLE-BIT-VECTOR-P:                   Sequences and Arrays and Hash Tables.
                                                               (line 568)
@@ -9076,7 +8971,7 @@ Appendix A Function Index
 * SLEEP:                                 Operating System Definitions.
                                                               (line 201)
 * SOCKET:                                System Definitions.  (line   6)
-* SOCKET <1>:                            System Definitions.  (line 864)
+* SOCKET <1>:                            System Definitions.  (line 799)
 * SOFTWARE-TYPE:                         Operating System Definitions.
                                                               (line 189)
 * SOFTWARE-VERSION:                      Operating System Definitions.
@@ -9087,7 +8982,7 @@ Appendix A Function Index
                                                               (line 371)
 * SPECIAL-FORM-P:                        Special Forms and Functions.
                                                               (line 325)
-* SPECIALP:                              System Definitions.  (line  86)
+* SPECIALP:                              System Definitions.  (line  74)
 * SQRT:                                  Numbers.             (line 621)
 * STABLE-SORT:                           Sequences and Arrays and Hash Tables.
                                                               (line 645)
@@ -9100,7 +8995,7 @@ Appendix A Function Index
 * STRING-CAPITALIZE:                     Sequences and Arrays and Hash Tables.
                                                               (line  39)
 * STRING-CHAR-P:                         Characters.          (line  45)
-* STRING-CONCATENATE:                    System Definitions.  (line 103)
+* STRING-CONCATENATE:                    System Definitions.  (line  91)
 * STRING-DOWNCASE:                       Sequences and Arrays and Hash Tables.
                                                               (line 611)
 * STRING-EQUAL:                          Sequences and Arrays and Hash Tables.
@@ -9111,7 +9006,7 @@ Appendix A Function Index
                                                               (line 684)
 * STRING-LESSP:                          Sequences and Arrays and Hash Tables.
                                                               (line 746)
-* STRING-MATCH:                          System Definitions.  (line 842)
+* STRING-MATCH:                          System Definitions.  (line 777)
 * STRING-NOT-EQUAL:                      Sequences and Arrays and Hash Tables.
                                                               (line 120)
 * STRING-NOT-GREATERP:                   Sequences and Arrays and Hash Tables.
@@ -9120,7 +9015,7 @@ Appendix A Function Index
                                                               (line 623)
 * STRING-RIGHT-TRIM:                     Sequences and Arrays and Hash Tables.
                                                               (line 126)
-* STRING-TO-OBJECT:                      System Definitions.  (line 308)
+* STRING-TO-OBJECT:                      System Definitions.  (line 296)
 * STRING-TRIM:                           Sequences and Arrays and Hash Tables.
                                                               (line 478)
 * STRING-UPCASE:                         Sequences and Arrays and Hash Tables.
@@ -9139,7 +9034,7 @@ Appendix A Function Index
                                                               (line  94)
 * STRINGP:                               Sequences and Arrays and Hash Tables.
                                                               (line 206)
-* STRUCTUREP:                            System Definitions.  (line 130)
+* STRUCTUREP:                            System Definitions.  (line 118)
 * SUBLIS:                                Lists.               (line 507)
 * SUBSEQ:                                Sequences and Arrays and Hash Tables.
                                                               (line  11)
@@ -9178,7 +9073,7 @@ Appendix A Function Index
                                                               (line 759)
 * TIME:                                  Operating System Definitions.
                                                               (line 181)
-* TOP-LEVEL:                             System Definitions.  (line 507)
+* TOP-LEVEL:                             System Definitions.  (line 474)
 * TRACE:                                 User Interface.      (line 131)
 * TREE-EQUAL:                            Lists.               (line 414)
 * TRUENAME:                              Streams and Reading. (line 460)
@@ -9187,21 +9082,20 @@ Appendix A Function Index
 * TYPECASE:                              Special Forms and Functions.
                                                               (line 439)
 * TYPEP:                                 Type.                (line  22)
-* UNCATCH-BAD-SIGNALS:                   System Definitions.  (line 449)
 * UNEXPORT:                              Symbols.             (line 267)
 * UNINTERN:                              Symbols.             (line 260)
 * UNION:                                 Lists.               (line 438)
-* UNIVERSAL-ERROR-HANDLER:               System Definitions.  (line 142)
+* UNIVERSAL-ERROR-HANDLER:               System Definitions.  (line 130)
 * UNLESS:                                Special Forms and Functions.
                                                               (line 639)
 * UNREAD-CHAR:                           Streams and Reading. (line 387)
 * UNTRACE:                               User Interface.      (line  16)
 * UNUSE-PACKAGE:                         Symbols.             (line 112)
-* UNWATCH:                               System Definitions.  (line 241)
+* UNWATCH:                               System Definitions.  (line 229)
 * UNWIND-PROTECT:                        Special Forms and Functions.
                                                               (line 706)
 * UPPER-CASE-P:                          Characters.          (line 157)
-* USE-FAST-LINKS:                        GCL Specific.        (line 224)
+* USE-FAST-LINKS:                        GCL Specific.        (line 217)
 * USE-PACKAGE:                           Symbols.             (line  59)
 * USER-HOMEDIR-PATHNAME:                 Operating System Definitions.
                                                               (line  51)
@@ -9219,9 +9113,9 @@ Appendix A Function Index
                                                               (line 260)
 * VECTORP:                               Sequences and Arrays and Hash Tables.
                                                               (line 666)
-* VS:                                    System Definitions.  (line 454)
+* VS:                                    System Definitions.  (line 426)
 * WARN:                                  User Interface.      (line 114)
-* WATCH:                                 System Definitions.  (line 234)
+* WATCH:                                 System Definitions.  (line 222)
 * WHEN:                                  Special Forms and Functions.
                                                               (line  53)
 * WITH-INPUT-FROM-STRING:                Streams and Reading. (line 273)
@@ -9231,14 +9125,13 @@ Appendix A Function Index
 * WRITE:                                 Streams and Reading. (line 661)
 * WRITE-BYTE:                            Streams and Reading. (line 139)
 * WRITE-CHAR:                            Streams and Reading. (line 494)
-* WRITE-DEBUG-SYMBOLS:                   System Definitions.  (line 522)
-* WRITE-FASD-TOP:                        System Definitions.  (line 712)
+* WRITE-FASD-TOP:                        System Definitions.  (line 647)
 * WRITE-LINE:                            Streams and Reading. (line 654)
 * WRITE-STRING:                          Streams and Reading. (line 210)
 * WRITE-TO-STRING:                       Streams and Reading. (line 356)
-* XDR-OPEN:                              System Definitions.  (line 790)
-* XDR-READ:                              System Definitions.  (line 810)
-* XDR-WRITE:                             System Definitions.  (line 817)
+* XDR-OPEN:                              System Definitions.  (line 725)
+* XDR-READ:                              System Definitions.  (line 745)
+* XDR-WRITE:                             System Definitions.  (line 752)
 * Y-OR-N-P:                              Streams and Reading. (line 224)
 * YES-OR-NO-P:                           Iteration and Tests. (line  38)
 * ZEROP:                                 Numbers.             (line 480)
index e8086c0e9b6a58a512de7e277af3ee276f81aa44..7b338a17e12573ef50b823b49bcc7d6f9a2ef5d7 100644 (file)
@@ -1,4 +1,4 @@
-This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi.
+This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi.
 
 This is a Texinfo GCL TK Manual
 
@@ -12,7 +12,7 @@ END-INFO-DIR-ENTRY
 \1f
 Indirect:
 gcl-tk.info-1: 270
-gcl-tk.info-2: 302275
+gcl-tk.info-2: 302276
 \1f
 Tag Table:
 (Indirect)
index d62e0cb99020c609b6079fe8fe8ef7674e53e2f4..b6e9d91c511f6a293647e892984c80de63a4fa21 100644 (file)
@@ -1,4 +1,4 @@
-This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi.
+This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi.
 
 This is a Texinfo GCL TK Manual
 
@@ -6650,3 +6650,4 @@ Keywords
 --------
 
 geometry manager, location, packer, parcel, propagation, size
+
index c39d23d6236a3c9973d921ae6e28620df0dbefbd..9004bb631e3cee4282347939a1126b2ac94486ff 100644 (file)
@@ -1,4 +1,4 @@
-This is gcl-tk.info, produced by makeinfo version 7.1 from gcl-tk.texi.
+This is gcl-tk.info, produced by makeinfo version 7.2 from gcl-tk.texi.
 
 This is a Texinfo GCL TK Manual
 
@@ -9,7 +9,6 @@ START-INFO-DIR-ENTRY
 * gcl-tk: (gcl-tk.info). GNU Common Lisp Tk Manual
 END-INFO-DIR-ENTRY
 
-
 \1f
 File: gcl-tk.info,  Node: place,  Next: raise,  Prev: pack,  Up: Control
 
@@ -1051,7 +1050,7 @@ wm :positionfrom window ?who?
      source has been set explicitly to program.
 wm :protocol window ?name? ?command?
      This command is used to manage window manager protocols such as
-     WM_DELETE_WINDOW. Name is the name of an atom corresponding to a
+     WM_DELETE_WINDOW.  Name is the name of an atom corresponding to a
      window manager protocol, such as WM_DELETE_WINDOW or
      WM_SAVE_YOURSELF or WM_TAKE_FOCUS. If both name and command are
      specified, then command is associated with the protocol specified